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PREFACE 


This  is  the  final  report  of  an  effort  conducted  under  Defense  Nuclear 
Agency  Contract  DNA-80-C-0056.  The  contract  supported  a  DNA  task  of  procuring 

an  advanced  scientific  computer  system  by  collecting  representative  sofware  for 
evaluating  the  performance  of  candidate  computer  systems  (benchmarking,  Ref.  3). 
One  sample  benchmark  program,  a  large  hydrodynamics  code  named  CSQ,  has  been 
processed  into  ANSI  Standard  Fortran  using  SCOFF,  a  translating  computer  program 
developed  on  this  contract.  The  resulting  version  of  CSQ  has  been  tested  and  is 
now  available  in  the  DNA  Cyber  176  computer  located  at  Kirtland  AFB,  New  Mexico. 

This  study  was  sponsored  by  the  Office  of  Technical  Information  with 
LCDR  Harold  R.  Gladwin  serving  as  technical'  monitor.  Major  John  M.  Anderson 
reviewed  the  final  report.  Their  comments  and  support  are  gratefully 
acknowledged.  Special  appreciation  is  extended  to  Michael  Warshaw  of  RDA  whose 
patience,  cooperation,  and  advice  provided  great  support  for  this  report.  The 
technical  work  of  BAC  staff  members  Loren  Milliman  and  Dave  Cruikshank  made  the 
successful  completion  of  this  contract  possible. 
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SECTION  1 


INTRODUCTION 

Although  the  Fortran  language  was  designed  to  be  a  universal  and 
machine- independent  medium  for  development  of  computer  programs,  computer  system 
manufacturers  have  corrupted  this  by  not  fully  implementing  the  ANSI  Standard 
Language  (Refs.  1,2)  and  by  providing  various  enhancements  to  ANSI  Fortran. 
Although  a  particular  vendor's  Fortran  language  may  in  itself  be  excellent,  the 
irregularity  makes  it  difficult  to  assemble  a  collection  of  Fortran  programs 
which  is  free  from  non-standard  coding.  A  computer  program,  SCOFF  (Semi- 
automated  Conversion  of  Fortran  Four)  was  developed  to  translate  programs 
written  in  the  various  dialects  of  the  Fortran  language  to  a  standard,  ANSI- 
compatible  language.  SCOFF  converts  most  of  the  non-standard  features  of  major 
vendor's  Fortan  to  a  standard  Fortran  language.  For  example.  Control  Data 
Corporation  (CDC)  Fortran  allows  variable  names  to  be  up  to  seven  characters  in 
length,  while  Digital  Equipment  Corporation  (DEC)  Fortran  allows  names  up  to  15 
characters  long  which  may  contain  dollar  marks  ($)  and  underscores (_) .  The  ANSI 
Standard  specified  that  variable  names  be  a  maximum  of  six  characters  in  length 
and  that  all  characters  be  from  the  set  (A-Z,  0-9).  SCOFF  replaces  each 
instance  of  an  improper  variable  name  with  a  truncated,  proper  variable  name. 

The  SCOFF  output  meets  the  requirements  of  ANSI  X3. 9-1978  Fortran  77 
Subset  with  two  additions:  that  of  COMPLEX  statements  and  BLOCK  Data 
structures.  These  additions  were  made  because  the  preponderance  of  computer 
programs  used  in  DNA  activities  require  one  or  both  of  these  features  and 
because  there  is  no  convenient  alternative. 

SCOFF  presently  runs  on  IBM  360/370  series  computers  and  requires 
approximately  200K  bytes  memory.  SCOFF  uses  an  efficient  input/output  method, 
so  that  the  program  execution  time  is  comparable  to  the  IBM-supplied  copy 
utility  IEBGENER.  Several  input  formats  (corresponding  to  source  language 
maintenance  program  conventions)  are  accepted  by  SCOFF.  Output  may  be  in  ASCII, 
EBCDIC,  or  BCD  character  codes.  The  Job  Control  Language  required  to  execute 
the  SCOFF  program  is  shown  in  Table  4.  A  listing  of  SCOFF  appears  in  Appendix 
B. 

In  Section  2  of  this  report,  we  describe  the  development  of  SCOFF. 

Section  3  briefly  describes  a  demonstrated  use  of  SCOFF. 
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SECTION  2 


THE  SCOFF  COMPUTERIZED  CONVERSION  METHOD 

SCOFF  reads  statements  (lines  or  cards)  one  at  a  time  from  a  Fortran 
program  which  is  to  be  standardized.  It  then  examines  the  symbols  of  the 
statements  one  at  a  time,  comparing  the  symbols  with  a  typical  set  such  as  a 
blank,  $,  *,  C,  or  a  numeral.  This  identification  of  the  symbols  determines  the 
type  of  statement.  The  program  then  compares  strings  with  standard  statements, 
and  takes  appropriate  action  in  translation. 

A  description  of  all  the  statements  (ANSI  and  non-ANSI)  that  are 
recognized  by  SCOFF  appears  in  Table  1,  along  with  an  indication  of  how  SCOFF 
deals  with  the  statement  type.  There  are  five  actions  that  SCOFF  may  take,  as 
specified  in  Table  2.  Any  statement  type  which  does  not  appear  in  Table  1  will 
be  ignored  (passed  through,  not  translated)  by  SCOFF.  SCOFF  cannot  translate 
those  statements  which  violate  the  ANSI  Standards  denoted  by  F  in  Table  1. 

There  are  several  constructs  for  which  there  is  no  equivalent  in  the  ANSI 

subset.  The  file  manipulation  statements  OPEN  and  CLOSE  are  found  in  virtually 

all  vendor  Fortrans,  but  the  format  of  parameters  for  OPEN  or  CLOSE  varies 

considerably.  Since  neither  OPEN  nor  CLOSE  is  defined  in  the  ANSI  Fortran 
Subset  Language,  SCOFF  does  not  attempt  to  translate  these  statements.  Also, 
SCOFF  cannot  resolve  ambiguities  which  require  syntactical  analysis.  The 
notation  used  in  Table  1  is  that  of  ANSI  X3. 9-1978,  Fortran  77;  a  reprint  of  the 
conventions  appears  in  Table  3. 

Of  the  actions  listed  in  Table  2,  the  first  two  are  described  below. 
The  last  three  are  self-explanatory. 

2-1  RESTRUCTURING  (R) 

SCOFF  does  a  global  reorganization  of  program  statements.  Many  vendor 
Fortrans  allow  Type  Declaration  statements  and  DATA  statements  to  appear 
anywhere  in  a  program  element  (or  anywhere  prior  to  the  first  occurrence  of  one 
of  the  defined  variable  names  in  an  expression).  SCOFF  collects  Type 

Declaration  statements  and  DATA  statements  and  places  them  ahead  of  the 
executible  statements  as  required  by  the  ANSI  Fortran  Subset.  Also,  some 
Fortrans  allow  data  values  to  be  specified  in  the  Declaration  statements.  Any 


Table  1.  Statement  handling  by  SCOFF 
Action 

Initial  Form  Taken  Translated  Form 


(see  Table  2) 

ASSIGN  s  TO  i 

T 

ASSIGN  s  TO  i 

BACKSPACE  u 

T 

BACKSPACE  u 

BACKSPACE  (alist) 

F 

BACKSPACE  (alist) 

BLOCK  DATA  [sub] 

N 

BLOCK  DATA  [sub] 

CALL  sub  [([a  [,a]. ..])] 

T 

CALL  sub  [([a  [,a]. ..])] 

CHARACTER  [*len[,]]  nam  [,nam]... 

TI 

CHARACTER  [*len[,]]  nam  [,nam]... 

CLOSE  (cl list) 

F 

CLOSE  (cl list) 

COMMON  [/[cb]/]nlist[[,]/[cb]/nlist]. . . 

T 

COMMON  [/[cb]/]nlist[[,]/[cb]/nl ist] 

COMPLEX  v  [,v]... 

T 

COMPLEX  [,v]... 

COMPLEX  *1 en[,]  v  [,v]... 

RT 

COMPLEX  v  [,v]... 

CONTINUE 

N 

CONTINUE 

DATA  nlist/clist/  [[,]nlist/clist] 

T 

DATA  nlist/clist/  [[,]nli st/cl ist] 

DIMENSION  a(d)  [,a(d)]... 

T 

DIMENSION  a(d)  [,a(d)]... 

DO  s  [,]  i=elfe2  [,e3] 

T 

DO  s  [,]  i=e1,e2[,e3] 

DOUBLE  PRECISION  v[,v]... 

RT 

REAL  v  [,v] 

ELSE 

NI 

ELSE 

ELSE  IF  (e)  THEN 

TI 

ELSE  IF  (e)  THEN 

END 

N 

END 

END  IF 

NI 

END  IF 

ENDFILE  u 

T 

ENDFILE  u 

ENDFILE  (alist) 

F 

ENDFILE  (alist) 

ENTRY  en  [([d  [,d]...])] 

TF 

ENTRY  en  [([d  [,d]...])] 

EQUIVALENCE  (nlist)  [,(nlist].. 

T 

EQUIVALENCE  (nlist)  [.(nlist)]... 

EXTERNAL  proc  [,proc]... 

T 

EXTERNAL  proc  [.proc]... 

TABLE  1.  (Continued) 


Initial  Form 


Action 

Taken 


Translated  Form 


FORMAT  is 

fun  ([d]...])  =  e 

[typ  [*len]]  FUNCTION  fun([d  [,d]. 

GO  TO  i  [[,](s  [,s]...)] 

GO  TO  s 

GO  TO  (s  [,s]. ..)[,]  1 
IF  (e)  st 
IF  (e)  sr  s2,  s3 
IF  (e)  s-j ,  s2 
IF  (e)  THEN 

IMPLICIT  type  (a  [,a]...) 


INQUIRE  (if 1 i st ) 

INQUT"  (iulist) 

INTEGER  v  [,v]... 

INTEGER  *len  v  [,v]... 

INTRINSIC  fun  [,fun]... 

LOGICAL  v  [,v]... 

LOGICAL  *len  v[,v]... 

NAMELIST 

OPEN  (olist) 

PARAMETER  (p-e[,p«ej. . . ) 
PAUSE  [n] 

PRINT  f[,  iolist] 

PROGRAM  pgm 

READ  (cilist)  [iolist] 

READ  f  [,  iolist] 


FORMAT  is 

fun  ([d]. .  .]).=  e 

[type]  FUNCTION  fun  ([d  [,d]...]) 

GO  TO  1  [[,](s  [,s]...)J 
GO  TO  s 

GO  TO  (s  [,s]. ..)[,]  i 
IF  (e)  st 
IF  (e)  S-|»  s2>  s3 
IF  (e)  sr  s2 
IF  (e)  THEN 

Specific  Type  Declaration  Statements 
Generated  As  Required 

INQUIRE  (iflist) 

INQUIRE  (iulist) 

INTEGER  v  [,v]... 

INTEGER  v  [,v]... 

INTRINSIC  fun  [.fun]... 

LOGICAL  v[,v]... 

LOGICAL  v[,v]... 

NAMELIST 

OPEN  (olist) 

PARAMETER  (p=e[ .p=e] . . . ) 

PAUSE  [n] 

PRINT  f  [,  iolist] 

PROGRAM  pgm 

READ  (cilist)  [iolist] 

READ  f  [,  iolist] 


TABLE  1.  (Continued) 


Action 


Initial  Form 

Taken 

Translated  Form 

REAL  v  [,v] . . . 

T 

REAL  v  [,v] _ 

REAL  *len  v  [,v] 

RT 

REAL  v  [,v]. .. 

RETURN  [e] 

N 

RETURN  [e] 

REWIND  u 

T 

REWIND  u 

REWIND  (alist) 

F 

REWIND  (alist) 

SAVE  [a  [,a], ..] 

F 

SAVE  [a  [,a]...] 

STOP  [n] 

N 

STOP  [n] 

SUBROUTINE  sub  [([d  [,d]...])3 

RT 

SUBROUTINE  sub  [([d  [,d]...])] 

WRITE  (cilist)  [iolist] 

T 

WRITE  (cilist)  [iolist] 

v  =  e 

T 

v  =  e  Arithmetic  Assignment 

Statement 

v  =  e 

T 

v  =  e  Logical  Assignment 

Statement 

v  =  e 

I 

v  =  e  Character  Assignment 

Statement 

v  =  v  [*v . ..]  =  e 

RT 

v  =  e  Multiple  Arithmetic 

v  =  v  Assignment  Statement 

[v  =  v] 

st  $  st  [$st...]  RT  st  Multiple  Statements  per 

st  coding  line 

[st] 


Action 


Description 


R  Restructured  by  SC  OFF  to  statement  acceptable  in  A  NSI 

subset 

T  Variable  names  translated  (truncated  with  ambiquity 

resolution)  by  SCOFF  if  longer  than  six  characters 

F  Flagged  as  not  ANSI  subset.  Not  translated  by  SCOFF  unless 

TF  appears 

N  Translation  not  needed 

I  Flagged  as  not  acceptable  to  pre-1981  IB M  compilers 


Table  3.  Notation  of  ANSI  X 3.9-1978  FORTRAN  77 


In  describing  the  form  of  FORTRAN  statements  or  constructs,  the  following  metalanguage 

conventions  and  symbols  are  used: 

(1)  Special  characters  from  the  FORTRAN  character  set,  uppercase  letters,  and 

uppercase  words  are  to  be  written  as  shown,  except  where  otherwise  noted. 

(2)  Lowercase  letters  and  lowercase  words  indicate  general  entities  for  which  specific 
entities  must  be  substituted  in  actual  statements.  Once  a  given  lowercase  letter  or 
word  is  used  in  a  syntactic  specification  to  represent  an  entity,  all  subsequent 
occurrences  of  that  letter  or  word  represent  the  same  entity  until  that  letter  or  word 
is  used  in  a  subsequent  syntactic  specification  to  represent  a  different  entity. 

(3)  Brackets,  [  ],  are  used  to  indicate  optional  items. 

(4)  An  elipsis,  ...  ,  indicates  that  the  preceding  optional  items  may  appear  one  or  more 

times  in  succession. 

(5)  Blanks  are  used  to  improve  readability,  but  unless  otherwise  noted  have  no 
significance. 

(6)  Words  or  groups  of  words  that  have  special  significance  are  underlined  where  their 
meaning  is  described. 

An  example  illustrates  the  metalanguage.  Given  a  description  of  the  form  of  a  statement 

as: 


CALL  sub  [([a  [,  a]...])] 

the  following  forms  are  allowed: 

CALL  sub 
CALL  sub  ( ) 

CALL  sub  (a) 

CALL  sub  (a,  a) 

CALL  sub  (a,  a,  a) 
etc 

When  an  actual  statement  is  written,  specific  entities  are  substituted  for  sub  and  each  a;  for 
example: 


CALL  ABCD  (X,  1.0) 


T able  4.  Job  control  language  required  to  execute  SCOFF 


//  EXEC  PGM=SC0FF1,  TIME=(0,20) 

//STEPLIB  00  DSN=ENG. BREL . PGML IB, 01 SP=SHR 

//OUTPUT  00  SYSOUT=A,DCB=(BLKSIZE=400,RECFM=FB) 

//TEMP  00  UNIT=SYSDA,SPACE=(800,  (200,20)),  DCB=BLKSIZE=800 
//FT06F001  DO  SYS0UT=A,DCB=BLKSIZE=1729 

//INPUT  DO  * 


The  EXEC  card  specifies  SC0FF1  to  be  run  from  library  ENG. BREL.  The  STEPLIB 
statement  defines  where  the  program  is  in  the  library  named  ENG. BREL.  The 
OUTPUT  card  image  specifies  the  output  file  from  SCOFF.  The  TEMP  statement 
defines  a  temporary  working  file  used  for  execution  and  storage  of  SCOFF.  The 
FT06F001  statement  defines  FORTRAN  unit  six  as  the  output  unit.  The  INPUT 
statement  tells  the  machine  that  the  input  program  begins  with  the  next 
statement. 


such  data  values  are  removed  from  the  Type  Declaration  statement  and  a  separate 
DATA  statement  is  created  for  the  data  value  assignment. 

Another  global  action  taken  by  SCOFF  is  the  replacement  of  IMPLICIT 
Type  Statements.  Any  IMPLICIT  statement  is  removed  and  individual  Type 
Declaration  statements  are  generated,  if  necessary,  to  explicitly  type  each 
variable  name  not  already  explicitly  typed  which  does  not  correspond  to  the 
default  type  convention  of  ANSI  Fortran  (all  names  represent  floating  point 
variables  unless  the  name  begins  with  one  of  the  letters  I  through  N). 

2-2  TRANSLATION  (T) 

Variable  names  that  are  more  than  six  characters  long  are  translated 
by  truncation  to  make  a  similar,  legal,  unique  name.  Variable  name  truncation 
is  done  according  to  the  following  algorithm: 

1.  Drop  all  non-standard  characters  in  the  name. 

2.  If  a  vowel  exists  in  the  name,  drop  the  last  one;  else  drop  the 
last  consonant. 

3.  If  the  name  is  longer  than  six  characters,  do  Step  2. 

4.  Set  I  to  6;  set  N  to  0. 

5.  If  the  name  is  unique,  then  £nd. 

6.  Replace  the  Ith  character  with  the  character  which  succeeds  it  in 
the  alphanumeric  collating  sequence. 

7.  Increment  N.  If  N  is  less  than  37,  then  do  Step  5;  else  set  I  to  I- 
1;  set  N  to  0;  do  Step  6. 

Another  example  of  direct  replacement  is  the  Multiple  Assignment 
Statement  (permitted  in  CDC  Fortran)  which  has  the  form 

A  =  B  =  C  =  expression 

A  Multiple  Assignment  Statement  is  expanded  into  two  (or  more)  single 
assignment  Fortran  statements: 
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C  =  expression 
B  =  C 
A  =  B 

2-3  EXAMPLES 

It  may  be  helpful  to  examine  two  statements  from  Table  1  in  more 
detail.  Consider  the  first  statement: 

ASSIGN  s  TO  i 

The  Action  Taken  is  specified  as  T  and  the  translated  form  appears  to 
be  identical  with  the  initial  form.  The  translated  form  will  be  identical 
except  in  those  cases  where  the  variable  name  i  contains  improper  characters  or 
is  more  than  six  characters  long.  SCOFF  does  not  alter  the  statement  segments 
ASSIGN,  the  statement  number  s,  or  TO. 

Secondly,  consider  the  statement: 


COMPLEX*len[,]  v  [,v]  ... 


This  statement  is  both  Restructured  and  Translated  (RT).  The  restructuring 
consists  of  removing  the  *1en[J  while  the  translation  ensures  that  every 
variable  v  is  a  legal  name  of  six  or  fewer  characters. 


SECTION  3 


DEMONSTRATED  USES  OF  SCOFF 

CSQ  (Ref.  4)  is  a  large  two-dimensional  hydrocode  that  was  selected  as 
a  test  vehicle  for  demonstrating  the  use  of  SCOFF.  The  selection  was  based  upon 
the  need  for  a  large  code  representative  of  those  used  by  the  DNA  community.  CSQ 
can  test  the  capabilities  of  computers  proposed  for  purchase  by  DNA  since  it 
uses  large  amounts  of  both  storage  and  CPU  time. 

CSQ  is  composed  of  approximately  fifteen  thousand  cards.  Most  of  the 
statements  are  pass-through  statements  with  perhaps  ten  percent  needing 
conversion.  After  application  of  SCOFF,  a  few  days  of  hand  work  by  a  programmer 
were  required  to  finish  the  conversion. 

CSQ  was  first  processed  at  Boeing  via  SCOFF.  It  was  then  transported 
to  AFWL  for  trial  runs  on  the  DNA  computer.  The  first  runs  were  made  under  the 
NOS/BE  system.  Then  when  the  operating  system  changed  to  NOS,  some  CSQ  runs 
were  made  under  the  new  operating  system.  The  conversion  was  successful  and 
made  CSQ  available  as  a  benchmark  code. 

Appendix  A  presents  a  sample  computer  run  of  SCOFF.  The  input  stream 
contains  a  number  of  statements  that  are  non-ANSI.  The  output  stream  shows  the 
translated  statements.  In  addition,  a  set  of  SCOFF  translation  messages  are 
presented.  These  messages  would  be  used  by  a  programmer  if  further  translation 
was  deemed  necessary  for  the  benchmark  test. 


< 
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SECTION  4 


SUMMARY 

SCOFF  provides  a  positive  step  towards  improving  the  development  of 
fair,  representative  benchmarks  for  the  evaluation  of  competing  computer  systems 
for  DNA.  The  advantages  of  computer  translation  are  apparent:  the  operation 
frees  the  programming  staff  from  tedious  work;  it  is  fast,  without  error,  and, 
within  the  limits . described  previously,  complete.  The  changes  which  require  a 
programmer's  services  are  often  challenging  but  usually  such  that  they  can  be 
solved  quickly. 

Many  programs  already  exist  that  are  too  large  to  translate  by  hand 
with  any  great  confidence  in  the  accuracy  of  the  output.  CSQ  is  an  example  of 
such  a  program.  As  larger  computers  and  larger  computer  programs  proliferate, 
the  SCOFF  technique  will  help  reduce  the  cost  of  benchmarking  and  upgrading  at  a 
computer  facility. 
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APPENDIX  A 

SAMPLE  COMPUTER  RUN  OF  SCOFF 


This  appendix  presents  a  sample  computer  run  of  SCOFF  that 
demonstrates  typical  inputs,  outputs,  and  translation  messages.  The  input 
program  was  written  for  illustrative  purposes  and  does  not  solve  any  particular 
physics  problem. 


INPUT  TO  SCOFF 


PROGRAM  TESTSCOFF 
PARAMETER  IIDIMMOO) 

IMPLICIT  INTEGERM  IR-S) 

DIMENSION  ARRAYONEI IDIM) , ARRATTWOI IDIM) 

REALM  ARRAYTHREE  HD  IMI  /  I DIM*0  .  / 

INTEGER  VARIABLE! .VARI ABLE2/2/ , VARIABLES 
CHARACTER*!  ANS.YES 
EQU I  VALENCE  I ARRAYONE . ARRAYTHREE  I 
DATA  YES/'Y’/ 

PRINT  S 

FORMAT!*  THIS  PROGRAM  DOESNT  DO  ANYTHING!*) 

DO  300  VARIABLES , IDIM 
VARIABLES3!-! )H*VARIABLE1 

ARRAY TWO (VAR  I  ABLE! )=ARRAYTHREE (VARIABLE! ) +VAR I ABLE2*VAR I  ABLE  3 


A  *VARI ABLE! 

IF  IARRAYTWOIVAR I  ABLE! 1)100,100,500 
100  ARRAYTW0IVARIABLE!I3VARIABLE1«VARIABLE2 
300  CONTINUE 
PRINT  • 

B  FORMAT!*  DO  YOU  WANT  A  PRINT?<Y  OR  N>  *S) 

READ  M.ANS 

IF  IANS. EQ. YES) PRINT  7 . (ARRAYTWO(R) . R  =  1 . IDIM) 

7  FORMAT!*  ALL  NUMBERS  SHOULD  BE  POSITIVE  COUNTING  BY  2-->», 

-  I/1X . IP9E10.3) ) 

DO  BOO  VARI ABLE2-1 , IDIM 

ARRAYONE ( VAR  I ABLE2)=DI  VI  DEI  TUP ( ARRAYTWOI VARIABLES)) 

BOO  CONTINUE 
PRINT  B 
READ  tt.ANS 

IFIANS.EQ. YESIPRINT  S, IARRAYTHREE IS) ,3=1 , IDIM) 

B  FORMAT  I*  ALL  NUMBER  SHOULD  BE  POSITIVE  SEQUENT  I AL-->* , 
-I/1X.IPBE10.3)) 

CALL  FL I PAROUND (ARRAYONE, IDIM. ARRAYTHREE) 

PRINT  B 
READ  «, ANS 

IFIANS.EQ. YESIPRINT  B, ARRAYONE 

0  FORMAT!*  ALL  NUMBERS  SHOULD  BE  SEQUENTIAL  ALTERNATING  SIGN-->«, 
-I/1X, 1PBE10.3) ) 

PRINT  1 0 

10  FORMAT!*  ALLLLLLDONl ! ! '.*) 

STOP 

END 

REALMS  FUNCTION  OIVIDE I  TUP (RAY) 

DIVIDE ITUP*RAY/2 

RETURN 

END 

SUBROUTINE  FLIPAROUND! I  111111,111111,1111112) 

REAL  1 1  1 1 1 1 1 ( I  I  1 1  1 1 ), II 1 1 1 1 2  1 1  I  I  I  I  I ) 

DO  3000  jsl.llllll 
K* I -1 )»*J 

till  I II  (J)s|  1 1 1 1 12UINR 
SOOO  CONTINUE 
RETURN 
END 
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OUTPUT  FROM  SCOFF 


C* 

C* 


PROGRAM  TESTSCOFF 
PARAMETER  (IDIM*100) 

INTEGER  R  ,  S 
IMPLICIT  INTEGERN4  (R-S) 

DIMENSION  ARRAYNI (DIM) , ARRATWI IDIMI 

REAL  ARRTHRI IDIMI 

INTEGER  VARBL1 , VARBL2 , VARBL3 

CIARACTERR1  ANS.YES 

EQUIVALENCE  I ARRAYN , ARRTHRI 

DATA  ARRTHR  /  ID  IMHO.  / 

DATA  VARBL2  /  2  / 

DATA  YES/  1HY/ 

PRINT  S 

9  FORMAT (33H  THIS  PROGRAM  DOESNT  DO  ANYTHING  1 1 
DO  SOO  VARBLIsI , (DIM 
VARBL3*I-1 INMVARBL1 

ARRATWI VARBL1 1 sARRTHR ( VARBL1 1 *VARBL2«VARBL3 
A  MVARBL1 

IF IARRATWIVARBL1 1)100,100,900 
100  ARRATWIVARBL1 I *VARBL1nVARBL2 
900  CONTINUE 
PRINT  0 

6  FORMAT (30H  DO  YOU  WANT  A  PR  I  NTT) Y  OR  N>  SI 
READ  m.ANS 

IFIANS.EO. YESIPRINT  7, (ARRATW(R) ,R=1 , IDIMI 

7  FORMAT (ASH  ALL  NUMBERS  SHOULD  BE  POSITIVE  COUNTING  BY  2--> 
-BE10.3II 

DO  BOO  VARBL2S1 , I  SIM 
ARRAYNIVARBL2) =DI VDTP (ARRATWI VARBL2 1 1 
BOO  CONTINUE 
PRINT  B 


00000010 


I/1X.1P 


READ  «,ANS 

IFIANS.EO. YES) PR  I  NT  I, (ARRTHR(S) ,S  =  1 .IDIMI 
«  FORMAT (44H  ALL  NUMBER  SHOULD  BE  POSITIVE  SEQUENTIAL--* , (/IX, 1P8E10 
-.3)1 


CALL  FLPRNDIARRAYN, (DIM, ARRTHRI 
PRINT  9 
READ  M.ANS 

IFIANS.EO. YESIPRINT  9, ARRAYN 

I  FORMAT  1 93H  ALL  NUMBERS  SHOULD  BE  SEQUENTIAL  ALTERNATING  SIGN-->,I/ 
-1 X , 1PBE10 .3)1 
PRINT  10 

10  FORMAT  1 19H  ALLLLLLOONE '.  Ill 
STOP 


END 


REALM4  FUNCTION  D I VDTP (RATI 

Dl VDTPaRAY/2 

RETURN 

END 

SUBROUTINE  FLPRNDI 1 11111,111111,111112) 
REAL  1 1 1  111  II I  1 1 1 1 1 , 1 1 1  1 12(1 1 1  1 1 1 1 
DO  9000  3*1,111111 
K*l-1 ImmJ 


1 1 1 111(31*11 1 II 2 (3 INK 
9000  CONTINUE 
RETURN 
END 
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SCOFF  TRANSLATION  MESSAGES 


IT, 


PROGRAM  TESTSCOFF 


PROGRAM  TESTSCOFF 


PARAMETER  (IDIMsIOO) 

PARAMETER  STATEMENT  NOT  ALLOWED  IN  ALL  FORTRAN  LANGUAGES 
REALM  ARAAYTHAEEI I D IM>  / 1 D !M«0. / 

DATA  ARRAYTHREE  /  IDIMmO.  / 

—  INTEGER  VARIASLE1 , VARIABLES /2/, VAR  I ASLE3 
DATA  VAR IABLE2  111 

CHARACTERS  ANS.YES 

CHARACTER  STATEMENT  NOT  ALLOWED  IN  ALL  FORTRAN  LANGUAGES 

—  6  FORMAT  IN  DO  YOU  WANT  A  PRINT?) Y  OR  N>  NS) 
CHARACTER  (SI  IS  NOT  A  VALID  FORMAT  TYPE. 

INTEGER  R  S 

END  OF  TRANSLATION 
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BLOCK  DATA 
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